10 POKE53269,0
20 PRINT"[147]":K$="1":K1$=K$:
30 POKE53281,0:POKE53280,0
40 POKE147,0:SYS57812"S8.SPR",8,1:SYS62631
50 POKE147,0:SYS57812"S8.FNT",8,1:SYS62631
60 DIM TA$(17):POKE53272,29:GOTO1640
70 TA$(1)="1 & 2":TA$(2)="1 & 3":TA$(3)="1 & 4":TA$(4)="2 & 6":TA$(5)="2 & 5"
80 TA$(7)="3 & 4":TA$(8)="3 & 5":TA$(9)="3 & 6":TA$(10)="3 & 7":TA$(11)="4 & 6"
90 TA$(12)="4 & 7":TA$(13)="5 & 6":TA$(14)="5 & 8":TA$(15)="6 & 8"
100 TA$(16)="6 & 7":TA$(17)="7 & 8":TA$(6)="2 & 3"
110 V=53248:FORT=0TO7:POKE2040+T,224+T:POKEV+39+T,1:NEXTT:PRINT"[147]":GOSUB980
120 FORT=0TO7:READX:READY:POKEV+T*2,X:POKEV+(T*2)+1,Y:NEXTT
130 POKEV+21,255
140 DATA 57,64,57,113,57,162,57,211
150 DATA 199,64,199,113,199,162,199,211
160 X=57:Y=64:TI$="000000"
170 X1=V::Y1=V+1
180 X1=(VAL(K$)-1)*2+V:Y1=(VAL(K$)-1)*2+V+1
185 FORQQ=53287TO53294:POKEQQ,5:NEXT:POKE53286+VAL(K$),1
190 GETK$:IFK$=""THENGOSUB1390:GOTO190
195 POKE214,8:PRINT:PRINTTAB(30)"         "
200 POKE53280,0
210 PRINT""TAB(30)"         "
220 IF K$>="0" AND K$<="8" THEN K1$=K$:GOTO290
230 IF K$="[145]"THEN310
240 IF K$="[157]"THEN320
250 IF K$=""THEN330
260 IF K$=""THEN340
270 IF K$=CHR$(13) THEN410
275 IF K$="Q"THEN932
280 GOTO 190
290 X1=(VAL(K$)-1)*2+V:Y1=(VAL(K$)-1)*2+V+1:K1$=K$
295 FORQQ=53287TO53294:POKEQQ,5:NEXT:POKE53286+VAL(K$),1
300 X=PEEK(X1):Y=PEEK(Y1):GOTO190
310 Y=Y-49:GOSUB380:POKEY1,Y:GOTO190
320 X=X-71:GOSUB350:POKEX1,X:GOTO190
330 X=X+71:GOSUB350:POKEX1,X:GOTO190
340 Y=Y+49:GOSUB380:POKEY1,Y:GOTO190
350 IF X>199THENX=199
360 IF X<57THENX=57
370 RETURN
380 IF Y>211THENY=211
390 IF Y<64THENY=64
400 RETURN
410 RESTORE:FORT=1TO16:READZZ:NEXTT:REM POKE53269,0:TE=0
420 FORT=0TO7:X(T)=PEEK(V+T*2):NEXTT
430 FORT=0TO7:Y(T)=PEEK((V+T*2)+1):NEXTT
440 PRINT""TAB(30)"         ";
450 PRINT"[157][157][157][157][157][157][157][157][157]";
460 FORA=1TO4:READX:READY:FORT=0TO7
470 IFX(T)=X AND Y(T)=YTHEN POKE53280,2:PRINT"[158]"T+1"[157]";:TE=10
480 NEXTT
490 NEXTA:PRINT:IFTE=10THEN K$=K1$:TE=0:GOTO290
500 DATA 57,64,57,211,199,64,199,211
510 FORT=0TO7:IFX(T)=128ANDY(T)=64THENTB(1)=T+1:GOTO 530
520 NEXTT
530 FORT=0TO7:IFX(T)=57ANDY(T)=113THENTB(2)=T+1:GOTO 550
540 NEXTT
550 FORT=0TO7:IFX(T)=128ANDY(T)=113THENTB(3)=T+1:GOTO 570
560 NEXTT
570 FORT=0TO7:IFX(T)=199ANDY(T)=113THENTB(4)=T+1:GOTO 590
580 NEXTT
590 FORT=0TO7:IFX(T)=57ANDY(T)=162THENTB(5)=T+1:GOTO 610
600 NEXTT
610 FORT=0TO7:IFX(T)=128ANDY(T)=162THENTB(6)=T+1:GOTO 630
620 NEXTT
630 FORT=0TO7:IFX(T)=199ANDY(T)=162THENTB(7)=T+1:GOTO 650
640 NEXTT
650 FORT=0TO7:IFX(T)=128ANDY(T)=211THENTB(8)=T+1:GOTO 660
660 NEXTT
680 A=TB(1):TE=0
690 IFA=TB(2)-1 OR A=TB(2)+1 THENTE=1:GOTO 950
700 IFA=TB(3)-1 OR A=TB(3)+1 THENTE=2:GOTO 950
710 IFA=TB(4)-1 OR A=TB(4)+1 THENTE=3:GOTO 950
720 A=TB(2)
730 IFA=TB(6)-1 OR A=TB(6)+1 THENTE=4:GOTO 950
740 IFA=TB(5)-1 OR A=TB(5)+1 THENTE=5:GOTO 950
750 IFA=TB(2)-1 OR A=TB(3)+1 THENTE=6:GOTO 950
760 A=TB(3)
770 IFA=TB(4)-1 OR A=TB(4)+1 THENTE=7:GOTO 950
780 IFA=TB(5)-1 OR A=TB(5)+1 THENTE=8:GOTO 950
790 IFA=TB(6)-1 OR A=TB(6)+1 THENTE=9:GOTO 950
800 IFA=TB(7)-1 OR A=TB(7)+1 THENTE=10:GOTO 950
810 A=TB(4)
820 IFA=TB(6)-1 OR A=TB(6)+1 THEN TE=11:GOTO 950
830 IFA=TB(7)-1 OR A=TB(7)+1 THENTE=12:GOTO 950
840 A=TB(5)
850 IFA=TB(6)-1 OR A=TB(6)+1 THENTE=13:GOTO 950
860 IFA=TB(8)-1 OR A=TB(8)+1 THENTE=14:GOTO 950
870 A=TB(6)
880 IFA=TB(8)-1 OR A=TB(8)+1 THENTE=15:GOTO 950
890 IFA=TB(7)-1 OR A=TB(7)+1 THENTE=16:GOTO 950
900 A=TB(7)
910 IFA=TB(8)-1 OR A=TB(8)+1 THENTE=17:GOTO 950
920 POKE214,18:PRINT:PRINTTAB(20)"[129][193][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][212]"
922 PRINTTAB(20)"[195][158]GOOD!!! NOW ASK A[129][195]"
924 PRINTTAB(20)"[195][158]FRIEND TO TRY IT.[129][195]"
926 PRINTTAB(20)"[195][159]PLAY AGAIN? (Y[159]/N[159])[129][195]"
928 PRINTTAB(20)"[200][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][208]"
929 POKE53280,RND(0)*16
930 GETK$:IFK$<>"Y"ANDK$<>"N"THEN929
931 IFK$="Y"THEN940
932 PRINT"[147]":POKE53269,0:POKE54272,21
933 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%,K$,K$,K$
934 IFER%<>63THENEND
935 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
936 PRINT"RUN"
937 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
940 TI$="000000":RESTORE:PRINT"[147]":POKE53269,0:GOSUB980:GOTO120
950 PRINT"[158]"TAB(31);TA$(TE)"  ":POKE53280,4
970 K$=K1$:GOTO290
980 FORT=1024TO1063:POKET,75:POKET+960,75:NEXTT
990 FORT=1024TO2023STEP40:POKET,67:POKET+39,67:NEXTT
1000 POKE1024,65:POKE1063,84:POKE1984,72:POKE2023,80
1010 PRINT"          [193][203][203][203][203][203][203][203][212]
1020 [153]"          LEN       LEN
1030 PRINT"          [195]       [195]
1040 [153]"          LEN       LEN
1050 PRINT"          [195][158]1.     [195]
1060 [153]" ATN(null)(null)(null)(null)(null)(null)(null)(null)THEN(null)(null)(null)(null)(null)(null)(null)THEN(null)(null)(null)(null)(null)(null)(null)(null)
1070 PRINT" [195]        [195]       [195]       [195]
1080 [153]" LEN        LEN       LEN       LEN
1090 PRINT" [195]        [195]       [195]       [195]
1100 [153]" LEN        LEN       LEN       LEN
1110 PRINT" [195][158]2.      [195][158]3.     [195][158]4.     [195]
1120 [153]" STR$(null)(null)(null)(null)(null)(null)(null)(null)THEN(null)(null)(null)(null)(null)(null)(null)THEN(null)(null)(null)(null)(null)(null)(null)(null)
1130 PRINT" [195]        [195]       [195]       [195]
1140 [153]" LEN        LEN       LEN       LEN
1150 PRINT" [195]        [195]       [195]       [195]
1160 [153]" LEN        LEN       LEN       LEN
1170 PRINT" [195][158]5.      [195][158]6.     [195][158]7.     [195]
1180 [153]" LEFT$(null)(null)(null)(null)(null)(null)(null)(null)THEN(null)(null)(null)(null)(null)(null)(null)THEN(null)(null)(null)(null)(null)(null)(null)(null)
1190 PRINT"          [195]       [195]
1200 [153]"          LEN       LEN
1210 PRINT"          [195]       [195]          Q [159]- QUIT"
1220 PRINT"          [195][158]8.     [195]
1230 [153]"          LEFT$(null)(null)(null)(null)(null)(null)(null)(null)"
1240 [153]"(null)":[151]1183,91:[151]1303,91:[151]1463,91
1250 [153][163]29)"VALCLRTOUCHING:"
1260 [153][163]29)"VAL"
1270 [153][163]29)"RIGHT$MID$MID$MID$MID$MID$MID$MID$MID$MID$"
1280 [153][163]29)"PEEKMID$MID$MID$MID$MID$MID$MID$MID$MID$"
1290 [153][163]29)"VALCLRWRONG"
1300 [153][163]29)"VALCLRPLACE:"
1310 [153][163]29)"VAL"
1320 [153][163]29)"RIGHT$MID$MID$MID$MID$MID$MID$MID$MID$MID$"
1330 [153][163]29)"PEEKMID$MID$MID$MID$MID$MID$MID$MID$MID$"
1340 [153][163]29)"VALCLRTIME:
1360 PRINTTAB(29)"[197]"
1370 PRINTTAB(29)"[201][202][202][202][202][202][202][202][202][202]"
1380 RETURN
1390 POKE214,14:PRINT:PRINTTAB(31)TI$:RETURN
1400 PRINT"[158][147]":FORT=1024TO1063:POKET,75:POKET+960,75:NEXTT
1410 FORT=1024TO2023STEP40:POKET,67:POKET+39,67:NEXTT
1420 POKE1024,65:POKE1063,84:POKE1984,72:POKE2023,80
1430 FORT=0TO6:POKEV+T*2+1,60:NEXTT
1440 POKEV+39,2:POKEV+40,7:POKEV+41,4:POKEV+42,10:POKEV+43,5:POKEV+44,13
1450 PRINT"
1460 [153]"SYS(null)MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$(null)
1470 PRINT"[154] TRY TO PLACE THE NUMBERS 1 THROUGH 8"
1480 PRINT"   IN THE BOXES SO THAT CONSECUTIVE"
1490 PRINT"  NUMBERS ARE [159]NOT[154] NEXT TO EACH OTHER,"
1500 PRINT"        NOT EVEN DIAGONALLY."
1510 PRINT
1520 PRINT"[158][218][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][219]
1530 [153]"  YOU CAN MOVE NUMBERS NOT READY FOR"
1540 [153]"  PLACING INTO THE FOUR CORNERS UNTIL"
1550 [153]"     YOU ARE READY TO PLACE THEM."
1560 [153]"SYS(null)MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$(null)
1570 PRINT"[156]  PRESS THE NUMBER OF THE SPRITE YOU"
1580 PRINT"   WANT TO MOVE THEN USE THE [159]CURSOR"
1590 PRINT"     KEYS.[156]  PRESS [159]RETURN[156] WHEN YOU"
1595 PRINT"     THINK YOU HAVE THE SOLUTION."
1610 PRINT"PRESS ANY KEY TO CONTINUE"
1620 GETTU$:IFTU$=""THEN1620
1630 PRINT"[147]":POKE53269,0:RETURN
1640 PRINT"[158][147]":FORT=1024TO1063:POKET,75:POKET+960,75:NEXTT
1650 FORT=1024TO2023STEP40:POKET,67:POKET+39,67:NEXTT
1660 POKE1024,65:POKE1063,84:POKE1984,72:POKE2023,80
1670 PRINT"
1680 [153]"       BY CLRGILLES DROUIN
1690 PRINT"          [158][203][203][203][203][203][203][203][203][203][203][203][203][203]
1700 [153]"           (C) 1989
1705 PRINT"      ALL RIGHTS RESERVED."
1720 V=53248:FORT=0TO7:POKE2040+T,232+T:POKEV+39+T,1:NEXTT
1730 POKEV+21,63
1740 FORT=0TO7:POKEV+T*2,100:POKEV+T*2+1,0:NEXTT:S=3
1750 FORT=0TO200STEPS:POKEV+11,T:NEXTT
1760 FORT=100TO255STEPS:POKEV+10,T:NEXTT
1770 FORT=200TO70STEP-S:POKEV+11,T:NEXTT
1780 FORT=0TO200STEPS:POKEV+9,T:NEXTT
1790 FORT=100TO255STEPS:POKEV+8,T:NEXTT
1800 FORT=200TO70STEP-S:POKEV+9,T:NEXTT
1810 FORT=255TO220STEP-S:POKEV+8,T:NEXTT
1820 FORT=0TO200STEPS:POKEV+7,T:NEXTT
1830 FORT=100TO255STEPS:POKEV+6,T:NEXTT
1840 FORT=200TO70STEP-S:POKEV+7,T:NEXTT
1850 FORT=255TO190STEP-S:POKEV+6,T:NEXTT
1860 FORT=0TO200STEPS:POKEV+5,T:NEXTT
1870 FORT=100TO255STEPS:POKEV+4,T:NEXTT
1880 FORT=200TO70STEP-S:POKEV+5,T:NEXTT
1890 FORT=255TO160STEP-S:POKEV+4,T:NEXTT
1900 FORT=0TO200STEPS:POKEV+3,T:NEXTT
1910 FORT=100TO255STEPS:POKEV+2,T:NEXTT
1920 FORT=200TO70STEP-S:POKEV+3,T:NEXTT
1930 FORT=255TO130STEP-S:POKEV+2,T:NEXTT
1940 FORT=0TO200STEPS:POKEV+1,T:NEXTT
1950 FORT=100TO255STEPS:POKEV+0,T:NEXTT
1960 FORT=200TO70STEP-S:POKEV+1,T:NEXTT
1970 FORT=255TO100STEP-S:POKEV+0,T:NEXTT
1980 PRINT"[164][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][220]
1990 [153]"VAL  DO YOU WANT INSTRUCTIONS?  VAL"
2000 [153]"FN(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)GET
2010 GETIN$:IFIN$=""THEN2010
2020 IFIN$="Y"THENGOSUB1400:GOTO70
2030 IFIN$="N"THENPOKE53269,0:GOTO70
2040 GOTO 2010
10000 OPEN15,8,15,"S0:SUPER 8":CLOSE15:SAVE"SUPER 8",8:END